library(mlr3extralearners)
mlr3extralearners::install_learners("dens.locfit")

test_that("dens.locfit", {
  learner = lrn("dens.locfit")
  fun = locfit::density.lf
  exclude = c(
    "x", # handled in predict
    "n", # ev used instead
    "ev", # handled in predict
    "family" # always density
  )

  ParamTest = run_paramtest(learner, fun, exclude)
  expect_true(ParamTest, info = paste0("\nMissing parameters:\n",
    paste0("- '", ParamTest$missing, "'", collapse = "\n")))
})
